home *** CD-ROM | disk | FTP | other *** search
- -- card: 5060 from stack: in
- -- bmap block id: 8446
- -- flags: 0000
- -- background id: 2635
- -- name: idle
- ----- HyperTalk script -----
- on initCard
- timeOut 7200,"hangUp"
- flushInput
- lookFor "noEchoLine",findRinging
- end initCard
-
- on findRinging
- global theInput
- if "RING" is in theInput then
- sendVanilla return
- wait for 1 seconds
- sendVanilla "ATA" & return
- timeOut 10,"hangUp"
- visual effect dissolve fast
- go to next card
- else lookFor "noEchoLine",findRinging
- end findRinging
-
- on idle
- global lastUserInfo, onLine, callers
- if onLine then
- if callers > card field "callers" then
- put callers into card field "callers"
- end if
- if last char of the secs > 2 then put "Last: " & lastUserInfo
- else put "Current time: " & the time && the date
- end if
- pass idle
- end idle
-
-
-
- -- part 2 (button)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=472 top=306 right=334 bottom=501
- -- title width / last selected line: 0
- -- icon id / first selected line: 2162 / 2162
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name:
- ----- HyperTalk script -----
- on mouseUp
- visual effect iris close
- go home
- end mouseUp
-
-
-
- -- part 7 (button)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=256 top=298 right=321 bottom=281
- -- title width / last selected line: 0
- -- icon id / first selected line: 1013 / 1013
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Next
- ----- HyperTalk script -----
- on mouseUp
- go to next card
- end mouseUp
-
-
-
- -- part 8 (button)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=228 top=298 right=321 bottom=254
- -- title width / last selected line: 0
- -- icon id / first selected line: 1014 / 1014
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Prev
- ----- HyperTalk script -----
- on mouseUp
- go to prev card
- end mouseUp
-
-
-
- -- part 9 (field)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=407 top=252 right=279 bottom=512
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 2
- -- text size: 20
- -- style flags: 1024
- -- line height: 26
- -- part name: callers
-
-
- -- part contents for card part 9
- ----- text -----
- 0